' VBScript File

Function CheckConnectionFreebox()
        GetPing = true
        Set objLocator = CreateObject("WbemScripting.SwbemLocator")
        Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")
	    Set colItems = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Timeout = 1000 and  Address = 'mafreebox.freebox.fr'")
        For Each objItem in colItems
		    setFreeboxConnection(objItem.ResponseTime)
        Next
End Function

Function CheckConnectionNeuf()
        GetPing = true
        Set objLocator = CreateObject("WbemScripting.SwbemLocator")
        Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")
	    Set colItems = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Timeout = 1000 and  Address = 'televisionsurpc.neuf.fr'")
        For Each objItem in colItems
		    setNeufConnection(objItem.ResponseTime)
        Next
End Function